/************************************************************************
  Scheme interpreter
  
  Copyright (C) 2010 Marioly Garza 

  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU Lesser General Public License as
  published by the Free Software Foundation, either version 3 of the
  License, or (at your option) any later version.
  
  This program is distributed in the hope that it will be useful, but
  WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  Lesser General Public License for more details.
  
  You should have received a copy of the GNU Lesser General Public
  License along with this program. If not, see
  <http://www.gnu.org/licenses/>.

************************************************************************/

#ifndef _PROCEDURE_H_
#define _PROCEDURE_H_

#include <string>
#include "environment.h"
#include "object.h"

class procedure : public object
{
    public:
        procedure(std::string id, object* code, environment* env) {
            this->id = id;
            this->code = code;
            this->env = env;
        }
        virtual object* invoke(std::list<object*> args, environment* env) = 0;
    
    protected:
        std::string id;
        object* code;
        environment* env;
};

#endif
